1 REM *********************************
2 REM * GANG VALIDATED   JAN 87       *
3 REM *********************************
4 REM * WILL CORLEY                   *
5 REM * 7551 TWILIGHT DR.             *
6 REM * SACRAMENTO, CA                *
7 REM * 95822                         *
8 REM *********************************
9 DC$="":FOR X=1 TO 65:READ A:DC$=DC$+CHR$(A):NEXT
10 POKE 53280,11:POKE 53281,12:PRINT "[147]"
11 PRINT TAB(9) "GANG VALIDATED   1541"
12 PRINT TAB(9) "[151][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
13 PRINT TAB(8)"(C) 1987 BY WILL CORLEY"
14 CLOSE 15:FOR X=1 TO 4:D=7+X
15 OPEN 15,D,15:CLOSE 15:A(X)=ST:NEXT
16 FOR X=1 TO 4:IF A(X)<>0 THEN 21
17 D=X+7:CLOSE 15:OPEN 15,D,15
18 PRINT#15,"M-W" CHR$(0) CHR$(6) CHR$(34) MID$(DC$,1,34)
19 PRINT#15,"M-W" CHR$(34) CHR$(6) CHR$(31) MID$(DC$,35)
20 PRINT#15,"M-W" CHR$(12) CHR$(0) CHR$(2) CHR$(18) CHR$(0)
21 NEXT X:CLOSE 15
22 FOR X=1 TO 4:IF A(X)<>0 THEN 24
23 D=X+7:C=11+X:CLOSE C:OPEN C,D,15
24 NEXT X
25 FOR X=1 TO 4:IF A(X)<>0 THEN 28
26 C=11+X
27 PRINT#C,"M-W" CHR$(3) CHR$(0) CHR$(1) CHR$(224)
28 NEXT X
29 FOR X=1 TO 4:IF A(X)<>0 THEN 32
30 C=11+X
31 PRINT "CLOSE"C":";
32 NEXT:PRINT CHR$(20)"[145][145][145]":END
33 REM ********************************        ********************************
34 DATA 120,169,1,141,85,2,169,15,133,132
35 DATA 169,2,133,163,32,189,193,169,86,141
36 DATA 0,2,169,13,141,1,2,162,6,104
37 DATA 157,59,6,202,208,249,104,104,169,235
38 DATA 72,169,232,72,162,1,189,59,6,72
39 DATA 232,224,7,208,247,169,1,76,105,249
40 DATA 169,1,76,105,249